home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog5.arj / READTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  573 b   |  21 lines
  1. program ReadTest;
  2. uses WinCrt;
  3. const
  4.   maxLen = 10;
  5. var
  6.   Buffer: array[0 .. maxLen - 1] of Char;
  7.   I: Integer;
  8. begin
  9.   FillChar(Buffer, Sizeof(Buffer), 0);
  10.   Writeln('Enter a ', maxLen, '-character string:');
  11.   ReadBuf(Buffer, maxLen);
  12.   for I := 0 to maxLen - 1 do
  13.     Writeln('Buffer[', I:2, '] = ASCII ', ord(Buffer[I]):3)
  14. end.
  15.  
  16.  
  17. {--------------------------------------------------------------
  18.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  19.   Revision 1.00    Date: 4/09/1991
  20. ---------------------------------------------------------------}
  21.